home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 June / MacFormat 25.iso / Shareware City / Developers / fortran-to-c-translator-11 / Mac F2C 1.1 / Test Project ƒ / test.c (C Output) < prev    next >
Encoding:
Text File  |  1994-12-19  |  16.0 KB  |  525 lines  |  [TEXT/KAHL]
  1. /* test.f -- translated by f2c (version 19941113).
  2.    You must link the resulting object file with the libraries:
  3.     -lf2c -lm   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Table of constant values */
  9.  
  10. static integer c__9 = 9;
  11. static integer c__1 = 1;
  12. static integer c__10 = 10;
  13. static integer c__3 = 3;
  14. static integer c__4 = 4;
  15. static integer c__5 = 5;
  16.  
  17. /* Main program */ MAIN__(void)
  18. {
  19.     /* Format strings */
  20.     static char fmt_99[] = "(a1)";
  21.  
  22.     /* Builtin functions */
  23.     integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), 
  24.         e_wsle(void), s_rsfe(cilist *), do_fio(integer *, char *, ftnlen),
  25.          e_rsfe(void);
  26.     /* Subroutine */ int s_stop(char *, ftnlen);
  27.  
  28.     /* Local variables */
  29.     char junk[2];
  30.     extern /* Subroutine */ int i_o_test__(void), flt_test__(integer *), 
  31.         int_test__(integer *), trn_test__(void);
  32.  
  33.     /* Fortran I/O blocks */
  34.     static cilist io___1 = { 0, 6, 0, 0, 0 };
  35.     static cilist io___2 = { 0, 6, 0, 0, 0 };
  36.     static cilist io___3 = { 0, 5, 0, fmt_99, 0 };
  37.     static cilist io___5 = { 0, 6, 0, 0, 0 };
  38.     static cilist io___6 = { 0, 6, 0, 0, 0 };
  39.     static cilist io___7 = { 0, 5, 0, fmt_99, 0 };
  40.     static cilist io___8 = { 0, 6, 0, 0, 0 };
  41.     static cilist io___9 = { 0, 6, 0, 0, 0 };
  42.     static cilist io___10 = { 0, 5, 0, fmt_99, 0 };
  43.     static cilist io___11 = { 0, 6, 0, 0, 0 };
  44.     static cilist io___12 = { 0, 6, 0, 0, 0 };
  45.     static cilist io___13 = { 0, 5, 0, fmt_99, 0 };
  46.     static cilist io___14 = { 0, 6, 0, 0, 0 };
  47.     static cilist io___15 = { 0, 6, 0, 0, 0 };
  48.     static cilist io___16 = { 0, 6, 0, 0, 0 };
  49.     static cilist io___17 = { 0, 6, 0, 0, 0 };
  50.     static cilist io___18 = { 0, 6, 0, 0, 0 };
  51.  
  52.  
  53. /*     This is a FORTRAN program to test Mac F2C v1.1 */
  54.     s_wsle(&io___1);
  55.     do_lio(&c__9, &c__1, "*****   Input/Output Test   *****", 33L);
  56.     e_wsle();
  57.     i_o_test__();
  58.     s_wsle(&io___2);
  59.     do_lio(&c__9, &c__1, "\n*****   End of I/O test, hit return to continue."
  60.         "..", 51L);
  61.     e_wsle();
  62.     s_rsfe(&io___3);
  63.     do_fio(&c__1, junk, 2L);
  64.     e_rsfe();
  65.     s_wsle(&io___5);
  66.     do_lio(&c__9, &c__1, "\n*****   Integer Math Test   *****", 34L);
  67.     e_wsle();
  68.     int_test__(&c__10);
  69.     s_wsle(&io___6);
  70.     do_lio(&c__9, &c__1, "\n*****   End of integer math test, hit return to "
  71.         "continue...", 60L);
  72.     e_wsle();
  73.     s_rsfe(&io___7);
  74.     do_fio(&c__1, junk, 2L);
  75.     e_rsfe();
  76.     s_wsle(&io___8);
  77.     do_lio(&c__9, &c__1, "\n*****   Floating Point Math Test   *****", 41L);
  78.     e_wsle();
  79.     flt_test__(&c__10);
  80.     s_wsle(&io___9);
  81.     do_lio(&c__9, &c__1, "\n*****   End of floating point math test, hit ret"
  82.         "urn to continue...", 67L);
  83.     e_wsle();
  84.     s_rsfe(&io___10);
  85.     do_fio(&c__1, junk, 2L);
  86.     e_rsfe();
  87.     s_wsle(&io___11);
  88.     do_lio(&c__9, &c__1, "\n*****   Transcendental Function Test   *****", 
  89.         45L);
  90.     e_wsle();
  91.     trn_test__();
  92.     s_wsle(&io___12);
  93.     do_lio(&c__9, &c__1, "\n*****   End of transcendental function test, hit"
  94.         " return to continue...", 71L);
  95.     e_wsle();
  96.     s_rsfe(&io___13);
  97.     do_fio(&c__1, junk, 2L);
  98.     e_rsfe();
  99.     s_wsle(&io___14);
  100.     do_lio(&c__9, &c__1, "##################################################"
  101.         "########################", 74L);
  102.     e_wsle();
  103.     s_wsle(&io___15);
  104.     do_lio(&c__9, &c__1, " If you noticed that floating point values did not"
  105.         " round correctly when", 71L);
  106.     e_wsle();
  107.     s_wsle(&io___16);
  108.     do_lio(&c__9, &c__1, " displayed, please read the enclosed file \"If Flo"
  109.         "ats Don't Display Right\"", 73L);
  110.     e_wsle();
  111.     s_wsle(&io___17);
  112.     do_lio(&c__9, &c__1, "##################################################"
  113.         "########################", 74L);
  114.     e_wsle();
  115.     s_wsle(&io___18);
  116.     do_lio(&c__9, &c__1, "\n*****   This completes all of the tests   *****", 
  117.         48L);
  118.     e_wsle();
  119.     s_stop("", 0L);
  120.     return 0;
  121. } /* MAIN__ */
  122.  
  123. /**************************************************************************/
  124.  
  125. /*     Subroutine to do the I/O tests */
  126.  
  127. /**************************************************************************/
  128. /* Subroutine */ int i_o_test__(void)
  129. {
  130.     /* Format strings */
  131.     static char fmt_399[] = "(a1)";
  132.     static char fmt_304[] = "(5x,a20,5(i1,2x),5x,5(f4.2,2x))";
  133.  
  134.     /* System generated locals */
  135.     olist o__1;
  136.     cllist cl__1;
  137.  
  138.     /* Builtin functions */
  139.     integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), 
  140.         e_wsle(void), s_rsle(cilist *), e_rsle(void), s_rsfe(cilist *), 
  141.         do_fio(integer *, char *, ftnlen), e_rsfe(void);
  142.     void s_copy(char *, char *, ftnlen, ftnlen);
  143.     integer f_open(olist *), s_wsue(cilist *), do_uio(integer *, char *, 
  144.         ftnlen), e_wsue(void), f_clos(cllist *), s_wsfe(cilist *), e_wsfe(
  145.         void), s_rsue(cilist *), e_rsue(void);
  146.  
  147.     /* Local variables */
  148.     char text[40];
  149.     real a[5];
  150.     integer i, j[5];
  151.     real x;
  152.     doublereal dx;
  153.  
  154.     /* Fortran I/O blocks */
  155.     static cilist io___19 = { 0, 6, 0, 0, 0 };
  156.     static cilist io___20 = { 0, 5, 0, 0, 0 };
  157.     static cilist io___22 = { 0, 6, 0, 0, 0 };
  158.     static cilist io___23 = { 0, 6, 0, 0, 0 };
  159.     static cilist io___24 = { 0, 5, 0, 0, 0 };
  160.     static cilist io___26 = { 0, 6, 0, 0, 0 };
  161.     static cilist io___27 = { 0, 6, 0, 0, 0 };
  162.     static cilist io___28 = { 0, 5, 0, 0, 0 };
  163.     static cilist io___30 = { 0, 6, 0, 0, 0 };
  164.     static cilist io___31 = { 0, 6, 0, 0, 0 };
  165.     static cilist io___32 = { 0, 5, 0, 0, 0 };
  166.     static cilist io___34 = { 0, 6, 0, 0, 0 };
  167.     static cilist io___35 = { 0, 6, 0, 0, 0 };
  168.     static cilist io___36 = { 0, 5, 0, fmt_399, 0 };
  169.     static cilist io___39 = { 0, 60, 0, 0, 0 };
  170.     static cilist io___40 = { 0, 6, 0, 0, 0 };
  171.     static cilist io___41 = { 0, 6, 0, fmt_304, 0 };
  172.     static cilist io___42 = { 0, 50, 0, 0, 0 };
  173.     static cilist io___43 = { 0, 6, 0, 0, 0 };
  174.     static cilist io___44 = { 0, 6, 0, fmt_304, 0 };
  175.  
  176.  
  177. /*     Screen I/O tests */
  178.     s_wsle(&io___19);
  179.     do_lio(&c__9, &c__1, "\nPart 1:  Screen I/O tests.\n\nEnter an integer v"
  180.         "alue.", 52L);
  181.     e_wsle();
  182.     s_rsle(&io___20);
  183.     do_lio(&c__3, &c__1, (char *)&i, (ftnlen)sizeof(integer));
  184.     e_rsle();
  185.     s_wsle(&io___22);
  186.     do_lio(&c__9, &c__1, "The number you entered was:", 27L);
  187.     do_lio(&c__3, &c__1, (char *)&i, (ftnlen)sizeof(integer));
  188.     e_wsle();
  189.     s_wsle(&io___23);
  190.     do_lio(&c__9, &c__1, "\nEnter a single precision floating point value...",
  191.          49L);
  192.     e_wsle();
  193.     s_rsle(&io___24);
  194.     do_lio(&c__4, &c__1, (char *)&x, (ftnlen)sizeof(real));
  195.     e_rsle();
  196.     s_wsle(&io___26);
  197.     do_lio(&c__9, &c__1, "The number you entered was: ", 28L);
  198.     do_lio(&c__4, &c__1, (char *)&x, (ftnlen)sizeof(real));
  199.     e_wsle();
  200.     s_wsle(&io___27);
  201.     do_lio(&c__9, &c__1, "\nEnter a double precision floating point value...",
  202.          49L);
  203.     e_wsle();
  204.     s_rsle(&io___28);
  205.     do_lio(&c__5, &c__1, (char *)&dx, (ftnlen)sizeof(doublereal));
  206.     e_rsle();
  207.     s_wsle(&io___30);
  208.     do_lio(&c__9, &c__1, "The number you entered was: ", 28L);
  209.     do_lio(&c__5, &c__1, (char *)&dx, (ftnlen)sizeof(doublereal));
  210.     e_wsle();
  211.     s_wsle(&io___31);
  212.     do_lio(&c__9, &c__1, "\nEnter some text (40 char max)...", 33L);
  213.     e_wsle();
  214.     s_rsle(&io___32);
  215.     do_lio(&c__9, &c__1, text, 40L);
  216.     e_rsle();
  217.     s_wsle(&io___34);
  218.     do_lio(&c__9, &c__1, "The text you entered was: ", 26L);
  219.     do_lio(&c__9, &c__1, text, 40L);
  220.     e_wsle();
  221.     s_wsle(&io___35);
  222.     do_lio(&c__9, &c__1, "\nPart 2:  file I/O tests.  Hit return to continue"
  223.         "...", 52L);
  224.     e_wsle();
  225.     s_rsfe(&io___36);
  226.     do_fio(&c__1, text, 40L);
  227.     e_rsfe();
  228. /*     File I/O tests:  Store some values and write them to file */
  229.     for (i = 1; i <= 5; ++i) {
  230.     j[i - 1] = i;
  231.     a[i - 1] = (doublereal) i;
  232.     }
  233.     s_copy(text, "A test message.", 40L, 15L);
  234.     o__1.oerr = 0;
  235.     o__1.ounit = 60;
  236.     o__1.ofnmlen = 8;
  237.     o__1.ofnm = "test.dat";
  238.     o__1.orl = 0;
  239.     o__1.osta = 0;
  240.     o__1.oacc = 0;
  241.     o__1.ofm = "unformatted";
  242.     o__1.oblnk = 0;
  243.     f_open(&o__1);
  244.     s_wsue(&io___39);
  245.     do_uio(&c__1, text, 40L);
  246.     do_uio(&c__5, (char *)&j[0], (ftnlen)sizeof(integer));
  247.     do_uio(&c__5, (char *)&a[0], (ftnlen)sizeof(real));
  248.     e_wsue();
  249.     cl__1.cerr = 0;
  250.     cl__1.cunit = 60;
  251.     cl__1.csta = 0;
  252.     f_clos(&cl__1);
  253.     s_wsle(&io___40);
  254.     do_lio(&c__9, &c__1, "Wrote the following data to file test.dat:\n", 43L);
  255.     e_wsle();
  256.     s_wsfe(&io___41);
  257.     do_fio(&c__1, text, 40L);
  258.     for (i = 1; i <= 5; ++i) {
  259.     do_fio(&c__1, (char *)&j[i - 1], (ftnlen)sizeof(integer));
  260.     }
  261.     for (i = 1; i <= 5; ++i) {
  262.     do_fio(&c__1, (char *)&a[i - 1], (ftnlen)sizeof(real));
  263.     }
  264.     e_wsfe();
  265. /* Reset the variables and read them back */
  266.     for (i = 1; i <= 5; ++i) {
  267.     j[i - 1] = 99;
  268.     a[i - 1] = 99.f;
  269.     }
  270.     s_copy(text, "reset", 40L, 5L);
  271.     o__1.oerr = 0;
  272.     o__1.ounit = 50;
  273.     o__1.ofnmlen = 8;
  274.     o__1.ofnm = "test.dat";
  275.     o__1.orl = 0;
  276.     o__1.osta = 0;
  277.     o__1.oacc = 0;
  278.     o__1.ofm = "unformatted";
  279.     o__1.oblnk = 0;
  280.     f_open(&o__1);
  281.     s_rsue(&io___42);
  282.     do_uio(&c__1, text, 40L);
  283.     do_uio(&c__5, (char *)&j[0], (ftnlen)sizeof(integer));
  284.     do_uio(&c__5, (char *)&a[0], (ftnlen)sizeof(real));
  285.     e_rsue();
  286.     cl__1.cerr = 0;
  287.     cl__1.cunit = 50;
  288.     cl__1.csta = 0;
  289.     f_clos(&cl__1);
  290.     s_wsle(&io___43);
  291.     do_lio(&c__9, &c__1, "\nRead the following data from file test.dat:\n", 
  292.         45L);
  293.     e_wsle();
  294.     s_wsfe(&io___44);
  295.     do_fio(&c__1, text, 40L);
  296.     for (i = 1; i <= 5; ++i) {
  297.     do_fio(&c__1, (char *)&j[i - 1], (ftnlen)sizeof(integer));
  298.     }
  299.     for (i = 1; i <= 5; ++i) {
  300.     do_fio(&c__1, (char *)&a[i - 1], (ftnlen)sizeof(real));
  301.     }
  302.     e_wsfe();
  303.     return 0;
  304. } /* i_o_test__ */
  305.  
  306. /**************************************************************************/
  307.  
  308. /*     Subroutine to do the integer math tests */
  309.  
  310. /**************************************************************************/
  311. /* Subroutine */ int int_test__(integer *m)
  312. {
  313.     /* Format strings */
  314.     static char fmt_203[] = "(10x,\002n\002,5x,\002n^2\002,5x,\002n^3\002,"
  315.         "5x,\002n/2\002,3x,\002n^2/2\002,3x,\002n^3/2\002)";
  316.     static char fmt_202[] = "(5x,6(i6,2x))";
  317.  
  318.     /* System generated locals */
  319.     integer i__1, i__2, i__3, i__4;
  320.  
  321.     /* Builtin functions */
  322.     integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), 
  323.         e_wsle(void), s_wsfe(cilist *), e_wsfe(void), do_fio(integer *, 
  324.         char *, ftnlen);
  325.  
  326.     /* Local variables */
  327.     integer i, j, k;
  328.  
  329.     /* Fortran I/O blocks */
  330.     static cilist io___45 = { 0, 6, 0, 0, 0 };
  331.     static cilist io___46 = { 0, 6, 0, fmt_203, 0 };
  332.     static cilist io___50 = { 0, 6, 0, fmt_202, 0 };
  333.  
  334.  
  335.     s_wsle(&io___45);
  336.     do_lio(&c__9, &c__1, "\nGenerate a table of integers, squares, cubes, an"
  337.         "d their halves.\n", 65L);
  338.     e_wsle();
  339.     s_wsfe(&io___46);
  340.     e_wsfe();
  341.     i__1 = *m;
  342.     for (i = 1; i <= i__1; ++i) {
  343. /* Computing 2nd power */
  344.     i__2 = i;
  345.     j = i__2 * i__2;
  346. /* Computing 3rd power */
  347.     i__2 = i, i__3 = i__2;
  348.     k = i__3 * (i__2 * i__2);
  349.     s_wsfe(&io___50);
  350.     do_fio(&c__1, (char *)&i, (ftnlen)sizeof(integer));
  351.     do_fio(&c__1, (char *)&j, (ftnlen)sizeof(integer));
  352.     do_fio(&c__1, (char *)&k, (ftnlen)sizeof(integer));
  353.     i__2 = i / 2;
  354.     do_fio(&c__1, (char *)&i__2, (ftnlen)sizeof(integer));
  355.     i__3 = j / 2;
  356.     do_fio(&c__1, (char *)&i__3, (ftnlen)sizeof(integer));
  357.     i__4 = k / 2;
  358.     do_fio(&c__1, (char *)&i__4, (ftnlen)sizeof(integer));
  359.     e_wsfe();
  360.     }
  361.     return 0;
  362. } /* int_test__ */
  363.  
  364. /**************************************************************************/
  365.  
  366. /*     Subroutine to do the floating point math tests */
  367.  
  368. /**************************************************************************/
  369. /* Subroutine */ int flt_test__(integer *m)
  370. {
  371.     /* Format strings */
  372.     static char fmt_205[] = "(12x,\002x\002,6x,\002x^2\002,6x,\002x^3\002,"
  373.         "6x,\002x/2\002,4x,\002x^2/2\002,4x,\002x^3/2\002)";
  374.     static char fmt_201[] = "(5x,6(f8.2,1x))";
  375.  
  376.     /* System generated locals */
  377.     integer i__1;
  378.     real r__1, r__2, r__3;
  379.  
  380.     /* Builtin functions */
  381.     integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), 
  382.         e_wsle(void), s_wsfe(cilist *), e_wsfe(void), do_fio(integer *, 
  383.         char *, ftnlen);
  384.  
  385.     /* Local variables */
  386.     integer i;
  387.     real x1, x2, x3;
  388.  
  389.     /* Fortran I/O blocks */
  390.     static cilist io___51 = { 0, 6, 0, 0, 0 };
  391.     static cilist io___52 = { 0, 6, 0, fmt_205, 0 };
  392.     static cilist io___57 = { 0, 6, 0, fmt_201, 0 };
  393.  
  394.  
  395.     s_wsle(&io___51);
  396.     do_lio(&c__9, &c__1, "\nGenerate a table of floats, their squares, cubes"
  397.         ", and their halves.\n", 69L);
  398.     e_wsle();
  399.     s_wsfe(&io___52);
  400.     e_wsfe();
  401.     i__1 = *m;
  402.     for (i = 1; i <= i__1; ++i) {
  403.     x1 = i * 1.f;
  404. /* Computing 2nd power */
  405.     r__1 = x1;
  406.     x2 = r__1 * r__1;
  407. /* Computing 3rd power */
  408.     r__1 = x1, r__2 = r__1;
  409.     x3 = r__2 * (r__1 * r__1);
  410.     s_wsfe(&io___57);
  411.     do_fio(&c__1, (char *)&x1, (ftnlen)sizeof(real));
  412.     do_fio(&c__1, (char *)&x2, (ftnlen)sizeof(real));
  413.     do_fio(&c__1, (char *)&x3, (ftnlen)sizeof(real));
  414.     r__1 = x1 / 2;
  415.     do_fio(&c__1, (char *)&r__1, (ftnlen)sizeof(real));
  416.     r__2 = x2 / 2;
  417.     do_fio(&c__1, (char *)&r__2, (ftnlen)sizeof(real));
  418.     r__3 = x3 / 2;
  419.     do_fio(&c__1, (char *)&r__3, (ftnlen)sizeof(real));
  420.     e_wsfe();
  421.     }
  422.     return 0;
  423. } /* flt_test__ */
  424.  
  425. /**************************************************************************/
  426.  
  427. /*     Subroutine to do the transcendental function tests */
  428.  
  429. /**************************************************************************/
  430. /* Subroutine */ int trn_test__(void)
  431. {
  432.     /* Format strings */
  433.     static char fmt_207[] = "(9x,\002x\002,10x,\002sin(x)\002,8x,\002cos(x"
  434.         ")\002,3x,\002sin(x)^2 + cos(x)^2\002)";
  435.     static char fmt_200[] = "(5x,i2,\002*pi/6\0023x,f11.8,3x,f11.8,3x,f15.10)"
  436.         ;
  437.     static char fmt_299[] = "(a1)";
  438.     static char fmt_208[] = "(11x,\002x\002,16x,\002log(x)\002,9x,\002exp(lo"
  439.         "g(x))\002)";
  440.     static char fmt_201[] = "(5x,f13.10,5x,f13.10,5x,f13.10)";
  441.  
  442.     /* System generated locals */
  443.     doublereal d__1;
  444.  
  445.     /* Builtin functions */
  446.     integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen), 
  447.         e_wsle(void), s_wsfe(cilist *), e_wsfe(void);
  448.     double sin(doublereal), cos(doublereal);
  449.     integer do_fio(integer *, char *, ftnlen), s_rsfe(cilist *), e_rsfe(void);
  450.     double log(doublereal), exp(doublereal);
  451.  
  452.     /* Local variables */
  453.     char junk[2];
  454.     doublereal c;
  455.     integer i;
  456.     doublereal s, x, c2, s2, pi;
  457.  
  458.     /* Fortran I/O blocks */
  459.     static cilist io___59 = { 0, 6, 0, 0, 0 };
  460.     static cilist io___60 = { 0, 6, 0, 0, 0 };
  461.     static cilist io___61 = { 0, 6, 0, fmt_207, 0 };
  462.     static cilist io___68 = { 0, 6, 0, fmt_200, 0 };
  463.     static cilist io___69 = { 0, 6, 0, 0, 0 };
  464.     static cilist io___70 = { 0, 5, 0, fmt_299, 0 };
  465.     static cilist io___72 = { 0, 6, 0, 0, 0 };
  466.     static cilist io___73 = { 0, 6, 0, fmt_208, 0 };
  467.     static cilist io___74 = { 0, 6, 0, fmt_201, 0 };
  468.  
  469.  
  470.     pi = 3.141592653589793f;
  471.     s_wsle(&io___59);
  472.     do_lio(&c__9, &c__1, "\nPart 1: Trig Functions", 23L);
  473.     e_wsle();
  474.     s_wsle(&io___60);
  475.     do_lio(&c__9, &c__1, "\nGenerate a table of x, sin(x), cos(x) and the su"
  476.         "m of their squares.\n", 69L);
  477.     e_wsle();
  478.     s_wsfe(&io___61);
  479.     e_wsfe();
  480.     for (i = 1; i <= 12; ++i) {
  481.     x = i * pi / 6.f;
  482.     s = sin(x);
  483.     c = cos(x);
  484. /* Computing 2nd power */
  485.     d__1 = s;
  486.     s2 = d__1 * d__1;
  487. /* Computing 2nd power */
  488.     d__1 = c;
  489.     c2 = d__1 * d__1;
  490.     s_wsfe(&io___68);
  491.     do_fio(&c__1, (char *)&i, (ftnlen)sizeof(integer));
  492.     do_fio(&c__1, (char *)&s, (ftnlen)sizeof(doublereal));
  493.     do_fio(&c__1, (char *)&c, (ftnlen)sizeof(doublereal));
  494.     d__1 = s2 + c2;
  495.     do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
  496.     e_wsfe();
  497.     }
  498.     s_wsle(&io___69);
  499.     do_lio(&c__9, &c__1, "\nPart 2:  Exponential functions; hit return to co"
  500.         "ntinue...", 58L);
  501.     e_wsle();
  502.     s_rsfe(&io___70);
  503.     do_fio(&c__1, junk, 2L);
  504.     e_rsfe();
  505.     s_wsle(&io___72);
  506.     do_lio(&c__9, &c__1, "Generate a table of x, log(x), and exp(log(x))\n", 
  507.         47L);
  508.     e_wsle();
  509.     s_wsfe(&io___73);
  510.     e_wsfe();
  511.     for (i = 1; i <= 10; ++i) {
  512.     x = (doublereal) i;
  513.     s = log(x);
  514.     c = exp(s);
  515.     s_wsfe(&io___74);
  516.     do_fio(&c__1, (char *)&x, (ftnlen)sizeof(doublereal));
  517.     do_fio(&c__1, (char *)&s, (ftnlen)sizeof(doublereal));
  518.     do_fio(&c__1, (char *)&c, (ftnlen)sizeof(doublereal));
  519.     e_wsfe();
  520.     }
  521.     return 0;
  522. } /* trn_test__ */
  523.  
  524. /* Main program alias */ int test_f2c__ () { MAIN__ (); return 0; }
  525.